home *** CD-ROM | disk | FTP | other *** search
/ Interactive Media Design Review 1999 / Interactive Media Design Review 1999.iso / pc / Demos / Herois / Codigo.Cst / 00135_Midias- desliga.ls < prev    next >
Encoding:
Text File  |  1999-03-19  |  1020 b   |  32 lines
  1. on mouseUp me
  2.   -- Desliga textos de midias
  3.   puppetSound 2, "CliqueMidia"
  4.   repeat with i = 79 to 82 -- Botoes Midias
  5.     set the member of sprite i to ┬¼
  6.           ((the number of member "Midias01") + i - 79)
  7.   end repeat
  8.   global gMidiaSelecionada
  9.   set gMidiaSelecionada = 0
  10.   repeat with i = 65 to 76 -- Texto/Subtitulos Midias
  11.     set the visibility of sprite i to false
  12.   end repeat
  13.   set the visibility of sprite 78 to false -- Linhas Midias
  14.   set the visibility of sprite 48 to false
  15.   set the visibility of sprite 84 to false -- Indicador Scrl. Midias
  16.   set the visibility of sprite 93 to false
  17.   
  18.   -- Volta a foto original
  19.   global gFotoCodes
  20.   set fotoCode = getAt(gFotoCodes,5)
  21.   if fotoCode <> "filenotfound" then
  22.     if fotoCode <> the name of member 5 then
  23.       global gSepPath
  24.       importFileInto member 5, ┬¼
  25.                 the moviePath & "Fotos" & gSepPath & fotoCode & ".jpg"
  26.       set the member of sprite (the spriteNum of me) to 5
  27.     end if
  28.   end if
  29.   
  30.   -- Atualiza imagem
  31.   updateStage
  32. end